00100	(DE RANDOM () (QUOTIENT
00200		(BOOLE 1 (LSH (RANDM) -3) 7777777777) _RD))
00300	
00400	(LAP RANDM SUBR)
00500		(MOVE 1 (SPECIAL _RX))
00600		(220000 1 (SPECIAL _RA))
00700		(ADD 1 (C  15460 0 616031))
00800		(404000 1 (C 377777 0 777777))
00900		(MOVEM 1 (SPECIAL _RX))
01000		(MOVEI 2 (QUOTE FIXNUM))
01100		(CALL 2 (E MAKNUM))
01200		(POPJ P)
01300		NIL
01400	
01500	(DE INITRAND () (PROG (N)
01600		(SETQ _RD (PLUS 10000000000 0.0))
01700		(INITRAND1)
01800		(SETQ N (ADD1 (REMAINDER (TIME) 100)))
01900	LOOP	(COND ((GREATERP (SETQ N (SUB1 N)) 0)
02000			(RANDOM)  (GO LOOP)))
02100		(RETURN NIL)  ]
02200	
02300	(LAP INITRAND1 SUBR)
02400		(MOVE 1 (C 0 0 61356))
02500		(MOVEM 1 (SPECIAL _RX))
02600		(MOVE 1 (C 37556 0 736271))
02700		(MOVEM 1 (SPECIAL _RA))
02800		(POPJ P)
02900		NIL
03000	
03100	(DE NTH (L N)
03200	     (COND ((EQUAL N 1) (CAR L)) (T
03300	       (NTH (CDR L) (SUB1 N]
03400	
03500	(SETQ BASE 12)
03600	(SETQ DECK (QUOTE (A 2 3 4 5 6 7 8 9 10.0 J Q K]
03700	(SETQ WAGER 1.0)
03800	(SETQ MONEY 0.0)
04000	(SETQ ACTS (QUOTE (STICK HIT DOUBLE SPLIT]
04100	(DE R (DECK) (ADD1 (FIX (TIMES (LENGTH DECK)
04200	     (RANDOM]
04300	(DE RR () (ADD1 (FIX (TIMES 13.0 (RANDOM]
04400	(INITRAND)
04500	(DE HAND (DECK) (PROG (ACT P1 P2)
04600	  (SETQ H NIL)
04700	  (SETQ RES NIL)
04750	(SETQ WAGER1 WAGER)
04800	  (SETQ U 1
04850	)
04900	  (PRINT (QUOTE YOU))
05000	  (PRINT (NTH DECK (SETQ P1 (RR))))
05100	  (PRINT (NTH DECK (SETQ P2 (RR))))
05200	  (PRINT (QUOTE DEALER))
05300	  (PRINT (NTH DECK (SETQ D  (RR))))
05350	  (SETQ D (LIST D))
05400	  (SETQ P (LIST P1 P2))
05500	L  (SETQ ACT (READ))
05600	  (COND ((MEMBER ACT ACTS) (ACT P D))
05700	          (T (PRINT (QUOTE (NO NO ↓↓ JUST TYPE ONE OF THE FOLLOWING
05800	       )))   (PRINT ACTS)))
05900	  (COND ((OR (OVER P) (EQUAL ACT (QUOTE STICK))) (TERPRI)
06000	   (HAND DECK))
06100	   (T (GO L]
06200	
06300	(DE HIT (PP DD) (PROG () 
06400	  (SETQ P (CONS  (RR) P ))
06450	  (PRINT (NTH DECK (CAR P)))
06500	  (COND ((OVER P) (PRINT (QUOTE (YOU ARE OVER))) 
06550	     (SETQ U (SUB1 U)) (STAT -1]
06600